运行exce来自l文件总是蓝屏

可能是操作系统或应用软件的问题。首先，确保你的操作系统和应用软件都是最新版本，可以尝试重新安装或更新它们。其次，检查你的电脑是否存在病毒或恶意软件，并进行杀毒和清理操作。另外，如果电脑过热也可能导致蓝屏问题，定期清理电脑内部，并确保风扇正常运转。最后，如果以上方法都无效，那么可能是硬件故障引起的蓝屏问题，建议联系专业维修人员进行检测和修复。

VBA代码如下：
12345678910111213141516基的赶田保消皇肉17181920Sub Del_F()Ap牛根缺顾察至plication.DisplayAlerts = FalseDim my_Path, my_Sheet As StringWith Application.FileDialog(msoFileDialogFolderPicker).Show.AllowMultiSelect = Falsemy_Path = .SelectedItems(1)End With my_Sheet = Dir(my_Path & "" & "*.xls*") Do While Len(my_Sheet) <> 0***.Open (my_Path & "" & my_Sheet)ActiveWork华拉铁岁金垂持怕无正book.Worksheets(1).Range("B1") = Replace(Range("B1"), "F", "")ActiveWorkbook.SaveActiveWorkbook.Closemy_Sheet = DirLoop End Sub追问 : 请问这个怎么用？
追答 : 新建一工作簿，ALT+F11，粘贴代码，F5运行即可CSV格式？稍作更改如下：1234567891011121314151617181920Sub Del_F()Application.DisplayAlerts = FalseDim my_Path, my_Sheet As StringWith Application.FileDialog(msoFileDialogFolderPicker).Show.AllowMultiSelect = Falsemy_Path = .SelectedItems(1)End With  my_Sheet = Dir(my_Path & "" & "*.csv*")  Do While Len(my_Sheet) <> 0***.Open (my_Path & "" & my_Sheet)ActiveWorkbook.Worksheets(1).Range("B1") = Replace(Range("B1"), "F", "")ActiveWorkbook.SaveActiveWorkbook.Closemy_Sheet = DirLoop  End Sub
追问 : 你好，你这个代码我按你的方法试了，运行完后B1的内容和A1的内容合在了一起，显示在了A1里面了
追答 : 你能确认吗？是否是格式合并的问题或者是居中靠右的缘故？A1未参与运算，不太可能。检查单元格内的内容不是只是看，要点击看编辑栏。
追问 : 上面那个xls的运行之后，我当时是把csv改成xls运行,结果B1和A1合并在了A1里面，你后面帮我改的csv格式的已经解决了我的问题，非常感谢！

数据恢复本身就不是万能的，不可能所有的数据都能恢复，之前我也试过，不过应该不是所有的都打不开吧，如果某个文件打不开那也没辙。

如果你的文件真的很重要且没有在你的硬盘写入新数据的情况下，你可以去外边找专业的数据恢复，不知你是在那里，如果是北京费用不是很贵的，200-300元左右，这个费用拿回自己需要的数据应该挺划算了。另外你想找专业恢复OFFICE的软件好像不怎么攻带几收云笔为所深理靠谱，即便是真有这个软件它也只能是恢复OFFICE有错误的文件，也不能直接恢复你格式化之后的，你现在用数据恢复回来的文件打开时空白的就等于你这个文件是恢复软件创建的，本身一个创建就是空白的文件你用什么软件也不可360问答能恢复出文字来啊，我的意思你明白吧！

Range("a2").Offset(i, o).Select 这句错了，数字0 写成了 字母o 另外，vba中控件的默认名字与vb中不同，注意区别: .Text1 ，文本框 默认的名字为 .TextBox1 .combox1 ，复合框 默认名字为 .ComboBox1 给你优化了代码: --------------- Private Sub C宽机微似章川必费怎齐ommandButton1_Click() Dim a, i With Worksheets("sheet1").Range("a2") For i = 1 To 65534 If .Cells(i, o) = "" Then With UserForm1 a = Array(.TextBox1.Text, .TextBox2.Text, .ComboBox1.Text, _ .TextBox3.Text, .TextBox4.Text, .TextBox5.Text, _ .TextBox6.Text, .ComboBox2.Text, .TextBox7.Text, _ .ComboBox3.Text, .TextBox8.Text) End With .Cells(i, 1).Resize(1, 11) = a Exit For End If Next i End With End Sub

HSSFRow row = sheet.getRow(0); //行

你的这一行，如果第一行第一列为空，那个取得的row为空，就会导致下面的出错，你判断一下，就行了。

其实你的代码不复杂，因为你这样结构只能弄两层，不是真正意义上的树，要实现真正意义上的无限级树，你需要为每一个文件夹增加唯一ID，而用父ID指定所属。
 
VBA代码如下：
Option Explicit
Sub ygb()
    Dim dbRoot, dbCreated
    Dim i, arr, root, leaf, num, path, j
    Set dbRoot = CreateObject("Scripting.Dictionary")
    Set dbCreated = CreateObject("Scripting.Dictionary")
    '1.扫描数据
    arr = Range("a1").CurrentRegion
    For i = 2 To UBound(arr)
        root = arr(i, 1)
        num = arr(i, 3)
        d造历委室容息当官bRoot(root如) = num
    Next i
    '2.建立文件夹
    For i = 2 To UBound(arr)
        root = arr(i, 1)
        l赵检止井读eaf = arr(i, 2)
        n师表氢印两可量氢海额um = arr(i, 3)
'由于你那个文件夹名称是敏感词，我经常帖子被删除，所以粘贴代码的时候我改为xyz
        path = "C:xyz" & root & "-" & dbRoot(root)
        I回专马f Not dbCreated.Exists(path) Then
            MkDir path
            dbCreated(path) = True
        E真农觉掌零检运成载nd If
        path = path & "" & leaf
        If dbRoot.Exists(leaf) Then
            path = path & "-" & dbRoot(leaf)
        End If
        MkDir path
        dbCreated(path) = True
    Next i
    '3.显示所有已经了文件夹
    i = 2
    j = 5
    For Each path In dbCreated.Keys
        Cells(i, j) = path
        i = i + 1
    Next path
End Sub

 
执行后的测试数据如下图：

 
 
计算机上的文件夹树如下：

追问 : 我要怎么改才能做成无限树呢？ 我的第5行 AA AAA 3其实是要求C:\A-1\AA-3\AAA，包括后面第7行的AAA AAAA 3也是要求生成C:\A-1\AA-3\AAA将AAA文件夹改名为AAA-3并且在里面生成AAAA文件夹 这个name在数据上保证A列中相同的话，C列也会相同，C列相同不一定A列相同的 这个代码只有2层，能不能帮下忙谢谢
追答 : 树状代码好写，但是你所有文件夹不能重名，也就是每一个LEAF是固定位置，不能交叉，否则结果会完全混乱，代码如下： ----百度不让粘贴代码了，怎么办，说字符太多，附件上传XLS文件      

是这样的，poi在获得Cell前先判断Row是否为null,获得Row前先判断Sheet是否为null，如果你的excel整个行Row都没有值，在你获得Cell时就会报错，同理，如果你的sheet不存在，在你获得Row时就会报错，这是改正后得代码：
import org.apache.poi.hssf.usermodel.*;
import org.apache.poi.poifs.filesystem.POIFSFileSystem;
import java.io.FileInputStream;
import java.io.IOException;

public class PoiTest {
static public void main(String[] args) throws Exception {
try {
POIFSFileSystem fs = new POIFSFileSystem(new FileInputStream("d:/test.xls"));
HSSFWorkbook wb = new HSSFWorkbook(fs);

HSSFSheet sheet = wb.getSheet("sheet1");
if(sheet==null){//如果不存在sheet1，建立sheet1
sheet=wb.createSheet("sheet1");
}
HSSFRow row = sheet.getRow(0); //获得行
if(row==null){//如果行不存在，建立行
row=sheet.createRow(0);
}
HSSFCell cell = row.getCell((short) 0); //列
if(cell==null){
System.out.println("null");
}
else{
System.out.println(" not null");
}

} catch (IOException e) {
e.printStackTrace();
}
}
}

　　如图，Excel表格在“分页预览”视图下才能看到背景“第几页”的灰色文字。不影响打印效果。

　　点击“普通”视图，即可恢复正常。